home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / menusele.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-08-15  |  5.2 KB  |  181 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMenuSelect 
  3.    Caption         =   "SGWindow - MenuItemSelected Event"
  4.    ClientHeight    =   2535
  5.    ClientLeft      =   3465
  6.    ClientTop       =   3675
  7.    ClientWidth     =   5805
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2535
  10.    ScaleWidth      =   5805
  11.    Begin VB.PictureBox picStatBar 
  12.       Align           =   2  'Align Bottom
  13.       Height          =   315
  14.       Left            =   0
  15.       ScaleHeight     =   255
  16.       ScaleWidth      =   5745
  17.       TabIndex        =   0
  18.       Top             =   2220
  19.       Width           =   5805
  20.    End
  21.    Begin VB.Label Label1 
  22.       Caption         =   $"MenuSelect.frx":0000
  23.       Height          =   1812
  24.       Left            =   120
  25.       TabIndex        =   1
  26.       Top             =   180
  27.       Width           =   5352
  28.       WordWrap        =   -1  'True
  29.    End
  30.    Begin VB.Menu mnuFile 
  31.       Caption         =   "&File"
  32.       Begin VB.Menu mnuFileNew 
  33.          Caption         =   "&New"
  34.          Shortcut        =   ^{F7}
  35.       End
  36.       Begin VB.Menu mnuFileOpen 
  37.          Caption         =   "&Open"
  38.       End
  39.       Begin VB.Menu mnuFileClose 
  40.          Caption         =   "&Close"
  41.       End
  42.       Begin VB.Menu mnuFileBar1 
  43.          Caption         =   "-"
  44.       End
  45.       Begin VB.Menu mnuFileSave 
  46.          Caption         =   "&Save"
  47.       End
  48.       Begin VB.Menu mnuFileSaveAs 
  49.          Caption         =   "Save &As..."
  50.       End
  51.       Begin VB.Menu mnuFileSaveAll 
  52.          Caption         =   "Save A&ll"
  53.       End
  54.       Begin VB.Menu mnuFileBar2 
  55.          Caption         =   "-"
  56.       End
  57.       Begin VB.Menu mnuFileProperties 
  58.          Caption         =   "Propert&ies"
  59.       End
  60.       Begin VB.Menu mnuFileBar3 
  61.          Caption         =   "-"
  62.       End
  63.       Begin VB.Menu mnuFilePageSetup 
  64.          Caption         =   "Page Set&up..."
  65.       End
  66.       Begin VB.Menu mnuFilePrintPreview 
  67.          Caption         =   "Print Pre&view"
  68.       End
  69.       Begin VB.Menu mnuFilePrint 
  70.          Caption         =   "&Print..."
  71.       End
  72.       Begin VB.Menu mnuFileBar4 
  73.          Caption         =   "-"
  74.       End
  75.       Begin VB.Menu mnuFileSend 
  76.          Caption         =   "Sen&d..."
  77.       End
  78.       Begin VB.Menu mnuFileBar5 
  79.          Caption         =   "-"
  80.       End
  81.       Begin VB.Menu mnuFileMRU 
  82.          Caption         =   ""
  83.          Index           =   0
  84.          Visible         =   0   'False
  85.       End
  86.       Begin VB.Menu mnuFileMRU 
  87.          Caption         =   ""
  88.          Index           =   1
  89.          Visible         =   0   'False
  90.       End
  91.       Begin VB.Menu mnuFileMRU 
  92.          Caption         =   ""
  93.          Index           =   2
  94.          Visible         =   0   'False
  95.       End
  96.       Begin VB.Menu mnuFileMRU 
  97.          Caption         =   ""
  98.          Index           =   3
  99.          Visible         =   0   'False
  100.       End
  101.       Begin VB.Menu mnuFileBar6 
  102.          Caption         =   "-"
  103.          Visible         =   0   'False
  104.       End
  105.       Begin VB.Menu mnuFileExit 
  106.          Caption         =   "E&xit"
  107.       End
  108.    End
  109.    Begin VB.Menu mnuEdit 
  110.       Caption         =   "&Edit"
  111.       Begin VB.Menu mnuEditUndo 
  112.          Caption         =   "&Undo"
  113.       End
  114.       Begin VB.Menu mnuEditBar1 
  115.          Caption         =   "-"
  116.       End
  117.       Begin VB.Menu mnuEditCut 
  118.          Caption         =   "Cu&t"
  119.       End
  120.       Begin VB.Menu mnuEditCopy 
  121.          Caption         =   "&Copy"
  122.       End
  123.       Begin VB.Menu mnuEditPaste 
  124.          Caption         =   "&Paste"
  125.       End
  126.       Begin VB.Menu mnuEditPasteSpecial 
  127.          Caption         =   "Paste &Special..."
  128.       End
  129.    End
  130.    Begin VB.Menu mnuView 
  131.       Caption         =   "&View"
  132.       Begin VB.Menu mnuViewToolbar 
  133.          Caption         =   "&Toolbar"
  134.          Checked         =   -1  'True
  135.       End
  136.       Begin VB.Menu mnuViewStatusBar 
  137.          Caption         =   "Status &Bar"
  138.          Checked         =   -1  'True
  139.       End
  140.       Begin VB.Menu mnuViewBar2 
  141.          Caption         =   "-"
  142.       End
  143.       Begin VB.Menu mnuViewRefresh 
  144.          Caption         =   "&Refresh"
  145.       End
  146.       Begin VB.Menu mnuViewOptions 
  147.          Caption         =   "&Options..."
  148.       End
  149.    End
  150.    Begin VB.Menu mnuHelp 
  151.       Caption         =   "&Help"
  152.       Begin VB.Menu mnuHelpContents 
  153.          Caption         =   "&Contents"
  154.       End
  155.       Begin VB.Menu mnuHelpSearch 
  156.          Caption         =   "&Search For Help On..."
  157.       End
  158.       Begin VB.Menu mnuHelpBar1 
  159.          Caption         =   "-"
  160.       End
  161.       Begin VB.Menu mnuHelpAbout 
  162.          Caption         =   "&About Project1..."
  163.       End
  164.    End
  165. Attribute VB_Name = "frmMenuSelect"
  166. Attribute VB_GlobalNameSpace = False
  167. Attribute VB_Creatable = False
  168. Attribute VB_PredeclaredId = True
  169. Attribute VB_Exposed = False
  170. Option Explicit
  171. Private WithEvents mclsMenu As MenuSelect
  172. Attribute mclsMenu.VB_VarHelpID = -1
  173. Private Sub Form_Load()
  174.    Set mclsMenu = New MenuSelect
  175.    mclsMenu.hWnd = Me.hWnd
  176. End Sub
  177. Private Sub mclsMenu_MenuItemSelected(Caption As String)
  178.    picStatBar.Cls
  179.    picStatBar.Print " " & Caption
  180. End Sub
  181.